home *** CD-ROM | disk | FTP | other *** search
- on mouseUp
- global k, s200, s40, s60
- if k = 0 then
- set the visible of sprite 20 to 0
- set the visible of sprite 19 to 1
- animate("a18-5hs.wav", 19, "a18-5-01.bmp", 4, s60, EMPTY)
- animate(EMPTY, 19, "a18-5-04.bmp", 1, s200, EMPTY)
- animate(EMPTY, 19, "a18-5-04.bmp", 1, s200, EMPTY)
- set the visible of sprite 20 to 1
- set the visible of sprite 19 to 0
- set k to 1
- puppetSprite(19, 0)
- puppetSprite(20, 0)
- end if
- end
-